home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / vbasic / msgbox / _msgbox.frm (.txt) < prev    next >
Visual Basic Form  |  1991-07-28  |  13KB  |  261 lines
  1. MsgBxGen
  2. MsgBox Editor
  3. Form1
  4. Frames
  5. &Icon Display Options
  6. Label1
  7. ;Click on the icon of your choice to place it on your MsgBox
  8. IconPic
  9. """""
  10. """""
  11. """""
  12. """""
  13. """"""
  14. """""" 
  15. """"""""""""" 
  16. """""
  17. """"" 
  18. """"""
  19. """"""
  20. """"""
  21. """"""
  22. """"""/
  23. """""
  24. """"""/
  25. """""
  26. """""""
  27. """""
  28. """""""
  29. """""
  30. """""""/
  31. """""""/
  32. """""""
  33. IcPicLabel
  34. Questions for the User
  35. IconPic
  36. IcPicLabel
  37. Critical Error Messages
  38. IconPic
  39. DDDDDDD
  40. DDDDDDDDD
  41. DDDDDO
  42. DDDDDO
  43. DDDDDO
  44. DDDD@
  45. DDDDDO
  46. DDDD@
  47. DDDDDO
  48. DDDD@
  49. DDDDDDO
  50. DDDDD
  51. DDDDDDO
  52. DDDDD
  53. DDDDDDO
  54. DDDDD
  55. DDDDDDO
  56. DDDDD
  57. DDDDDDO
  58. DDDDD
  59. DDDDDDO
  60. DDDDD
  61. DDDDDDO
  62. DDDDD
  63. DDDDD
  64. DDDDD
  65. DDDD@
  66. DDDDDDDDDDDDD@
  67. DDDDDDDDDDDDD@
  68. DDDDDO
  69. DDDDD
  70. DDDDD
  71. DDDDD
  72. IcPicLabel
  73. Information for the User
  74. IconPic
  75. IcPicLabel
  76. Important Messages
  77. IconPic
  78. IcPicLabel
  79. No Icon Displayed
  80. Frames
  81. &Button Display Options
  82. ButOpt
  83. Ok Button Only
  84. ButOpt
  85. Ok and Cancel Buttons
  86. ButOpt
  87.  Abort, Retry, and Ignore Buttons
  88. ButOpt
  89. Yes, No, and Cancel Buttons
  90. ButOpt
  91. Yes and No Buttons
  92. ButOpt
  93. Retry and Cancel Buttons
  94. Frames
  95. &Code Options
  96. CodeOpt
  97.     Procedure
  98. CodeOpt
  99. Function
  100. AboutLabel
  101.     &About...
  102. Frames
  103. &Default Button Option
  104. DefaultLabel
  105. DefaultLabel
  106. DefaultLabel
  107. EditCtl
  108. $&Edit Message Box Title and Contents
  109. CopyCtl
  110. &Place Code on Clipboard
  111. ExitCtl
  112. Frame1_DragDrop|
  113. SourceU
  114. IconPic_Click
  115. Indexi
  116. IconPic#
  117. BorderStyle#
  118. IconPic_LostFocus
  119. Label5_Click
  120. Label6_ClickY
  121. Label12_Click7
  122. IcDisLabel_Clicki
  123. IconNum
  124. Incex
  125. IconPic_GotFocus
  126. IcPicLabel_Click
  127. Form_Click^
  128. Label1_ClickG
  129. Command1_Click
  130. EditCtl_Click
  131. MsgEdit
  132.     Iconstyle1
  133. IconPic_DblClick<
  134. DefaultLabel_Click
  135. DefaultLabel_MouseDown
  136. Button
  137. Shift
  138. DefaultLabel
  139.     BackColort
  140. Default
  141. DefaultChoiceX
  142. DefaultLabel_DblClick    
  143. THIRD
  144. Caption
  145. SECOND_q
  146. FIRST/
  147. DefaultLabel_Change
  148. NString
  149. CString
  150. AboutLabel_Click
  151. @    Form_Load
  152.     ButtonOpt 
  153. Value
  154. ButOpt
  155. TRUE=
  156. CodeOpt
  157. Codemode
  158. ButtonStyle
  159. Frame2_DragDropQ
  160. CodeOpt_Click
  161. HelpLabel_Click
  162. SetIconPic
  163. SetButtonOpt
  164. SetDefaultLabelM
  165. Form_KeyPress
  166. KeyAscii
  167. ExitCtl_Click
  168. MsgBxGen
  169. TheMessage
  170. TheTitle*
  171. CopyCtl_Clickc
  172. Header
  173. TheStyle
  174. CoderF
  175. Handler
  176. Whole
  177.     Clipboardn
  178. CF_TEXT
  179. FreshMessage
  180. MessageEdit
  181. Textz
  182. AReturn
  183. CReturn
  184. ButtonstyleTheMessage
  185. RawMessage
  186. Frames_DragDrop
  187. ButOpt_Click
  188. ButOpt_DragOver
  189. State
  190. ButOpt_GotFocus
  191. CodeOpt_GotFocus
  192. Form1^
  193. MBAbout
  194.     TheAnswer
  195. WindowState
  196.     MINIMIZED
  197. Another
  198. Title
  199. Message
  200. AboutLabel_MouseDown
  201. AboutLabel
  202. AboutLabel_MouseUp
  203.     ForeColor
  204. IconPic_Click
  205. EditCtl_Click
  206. DefaultLabel_Click
  207. DefaultLabel_MouseDown
  208. DefaultLabel_DblClick
  209. Form_Load
  210.  Initialize variables and controls
  211. IcPicLabel_Click
  212. IconPic_GotFocus
  213. SetIconPic
  214. SetDefaultLabel
  215. THIRD"
  216. SECOND
  217. FIRST"
  218. CopyCtl_Click
  219.  + CR$
  220. MsgBox TheMessage$, TheStyle, TheTitle$"
  221. TheAnswer = MsgBox(TheMessage$, TheStyle, TheTitle$)
  222. TheMessage$ = 
  223. TheMessage$ = TheMessage$ + 
  224. TheMessage$ = TheMessage$ + 
  225. TheMessage$ = 
  226. TheMessage$ = TheMessage$ + 
  227. TheMessage$ = TheMessage$ + 
  228. TheMessage$ = 
  229. CR$ = Chr$(13) + Chr$(10)"
  230. TheStyle = "
  231. TheTitle$ = 
  232. If TheAnswer = 4 Then  'Answered Retry
  233. Else     'Answered Cancel"
  234. End If
  235. If TheAnswer = 6 Then  'Answered Yes
  236. Else     'Answered No"
  237. End If
  238. Select Case TheAnswer"
  239.      Case 7     'Pressed No"
  240.      Case 6     'Answered Yes"
  241.      Case Else  'Answered Cancel
  242. End Select
  243. Select Case TheAnswer"
  244.      Case 5     'Pressed Ignore"
  245.      Case 4     'Answered Retry"
  246.      Case Else  'Answered Abort"
  247. End Select
  248. If TheAnswer = 1 Then  'Answered OK"
  249. Else     'Answered Cancel"
  250. End If
  251. Iconize this program (No means exit!) ?"
  252. MsgBox Editor"
  253. Answered Yes
  254. Answered Now
  255. ButOpt_GotFocus
  256. CodeOpt_GotFocus
  257. AboutLabel_Click
  258. ExitCtl_Click
  259. AboutLabel_MouseDown
  260. AboutLabel_MouseUp
  261.